home *** CD-ROM | disk | FTP | other *** search
/ Spiceworld The Movie - Interactive CD-ROM / Spiceworld The Movie: Interactive CD-ROM.iso / pc / elements / spicetwo.dir / scripts_81.ls < prev    next >
Encoding:
Text File  |  1997-12-04  |  1.4 KB  |  53 lines
  1. on checkMe
  2.   puppetSound("twink")
  3.   set the visible of sprite 7 to 0
  4.   set the visible of sprite 8 to 0
  5.   set the visible of sprite 9 to 0
  6.   set the visible of sprite (the clickOn - 3) to 1
  7. end
  8.  
  9. on doQuestion
  10.   global BOMBRATE
  11.   set hasAnswer to EMPTY
  12.   repeat with x = 7 to 9
  13.     if the visible of sprite x then
  14.       set hasAnswer to 1
  15.     end if
  16.   end repeat
  17.   if hasAnswer = EMPTY then
  18.     puppetSound("hooter")
  19.     set the visible of sprite 18 to 1
  20.     updateStage()
  21.     startTimer()
  22.     repeat while the timer < 60
  23.     end repeat
  24.     set the visible of sprite 18 to 0
  25.     updateStage()
  26.     exit
  27.   end if
  28.   set correctAnswer to item 2 of the name of member the memberNum of sprite 3 of castLib 4
  29.   if the visible of sprite (correctAnswer + 6) then
  30.     puppetSound("clapping")
  31.     set the member of sprite 17 to "right"
  32.     set MRate to the movieRate of sprite 54
  33.     set BOMBRATE to max(1, MRate / 2)
  34.     set the movieRate of sprite 54 to BOMBRATE
  35.     setScore(20)
  36.   else
  37.     puppetSound("raspberry")
  38.     set the member of sprite 17 to "wrong"
  39.     set MRate to the movieRate of sprite 54
  40.     set BOMBRATE to MRate * 2
  41.     set the movieRate of sprite 54 to BOMBRATE
  42.   end if
  43.   set the movieRate of sprite 17 to 1
  44.   set the visible of sprite 17 to 1
  45.   startTimer()
  46.   repeat while the timer < 130
  47.     updateStage()
  48.   end repeat
  49.   set the movieRate of sprite 17 to 0
  50.   set the movieTime of sprite 17 to 0
  51.   returnToMainGame(the frameLabel)
  52. end
  53.